home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D05.D64 / amiga show (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  56 lines
  1. 10 REM ****************
  2. 20 REM ** AMIGA SHOW **
  3. 30 REM **     BY     **
  4. 40 REM ** LEE BAMBER **
  5. 50 REM ****************
  6. 60 POKE147,0:SYS57812"AMIGA DATA",8,1:SYS62631
  7. 70 SYS57812"C.AM CHAR(HAND)",8,1:SYS62631
  8. 99 RP=0
  9. 100 REM HAND SCREEN
  10. 110 POKE53280,1:POKE53281,1:POKE53272,26:POKE53270,216:POKE53282,12:POKE53283,14
  11. 120 PRINT"[129]C[147]":POKE49152,25:POKE49153,40:POKE251,92:POKE252,193:POKE253,0
  12. 125 POKE254,4:SYS49200:FORT=0TO1000:NEXTT
  13. 130 POKE147,0:SYS57812"C.AM CHAR(MENU)",8,1:SYS62631
  14. 135 GOSUB140
  15. 139 GOTO 180
  16. 140 POKE53280,6:POKE53281,6:POKE53270,200:POKE53272,28:PRINT"C[147]"
  17. 150 POKE49152,25:POKE49153,40:POKE251,68:POKE252,197:POKE253,0:POKE254,4
  18. 155 SYS49200:FORT=1024TO1063:L=PEEK(T):IFL=31THENPOKET,53
  19. 160 NEXTT:IFRP=0THENFORT=0TO2000:NEXTT
  20. 170 POKE49152,10:POKE49153,26:POKE251,43:POKE252,201:POKE253,41:POKE254,4
  21. 175 SYS49200:FORT=0TO1000:NEXTT
  22. 179 RETURN
  23. 180 FORI=2TO4:FORT=1027TO1031:POKET+(55296-1024)+(I*40),0:NEXTT:NEXTI
  24. 190 FORT=0TO500:NEXTT:POKE49152,10:POKE49153,12:POKE251,70:POKE252,201
  25. 195 POKE253,207:POKE254,4:SYS49200
  26. 200 FORT=0TO2000:NEXTT:PRINT"[147]":RP=1:GOSUB140
  27. 210 FORI=5TO7:FORT=1032TO1036:POKET+(55296-1024)+(I*40),0:NEXTT:NEXTI
  28. 220 FORT=0TO500:NEXTT:POKE49152,8:POKE49153,16:POKE251,228:POKE252,202
  29. 230 POKE253,37:POKE254,5:SYS49200
  30. 250 FORI=9TO11:FORT=1046TO1050:POKET+(55296-1024)+(I*40),0:NEXTT:NEXTI
  31. 260 FORT=0TO500:NEXTT:POKE49152,6:POKE49153,14:POKE251,247:POKE252,202
  32. 270 POKE253,250:POKE254,5:SYS49200
  33. 280 FORT=0TO2000:NEXTT:PRINT"[147]":GOSUB140
  34. 290 FORI=2TO4:FORT=1042TO1046:POKET+(55296-1024)+(I*40),0:NEXTT:NEXTI
  35. 300 FORT=0TO3000:NEXTT:PRINT"[147]":POKE53272,23:POKE53270,200
  36. 310 PRINT" [215]HAT YOU HAVE JUST SEEN WAS A SMALL"
  37. 320 PRINT" CLIP OF THE [193]MIGA STARTUP AND THE
  38. 330 [153]" ATNMIGA (null)ORKBENCH SCREEN. (null)HE (null)ORKBENCH
  39. 340 PRINT" IS A CLEVER UTILITY WHICH CAN TOTALLY
  40. 350 [153]" MANIPLUATE MOST DISK FILES. RIGHT$T ALSO
  41. 360 PRINT" CONTAINS ALOT OF SUB-PROGRAMS.
  42. 365 [153]" VAL.G LENALCUALTORS, LENLOCKS, VAL.T.C
  43. 370 PRINT" [201]F YOU WOULD LIKE TO SEE THE STARTUP
  44. 380 [153]" HAND AGAIN PRESS F1WAIT. RIGHT$F YOU WISH TO
  45. 390 PRINT" VIEW THE MAIN [215]ORKBENCH PRESS F3[146].
  46. 400 [153]" (null)R IF YOU WISH TO QUIT THIS DEMO,
  47. 410 PRINT"[160]PRESS F7[146].
  48. 420 [153]"   (null)HE ATNMIGA (null)HOW WAS CREATED BY (null)EE    ";
  49. 430 [153]"  PEEKAMBER FOR LENOMMODORE STR$ISK (null)SER 1990   ";
  50. 440 [161]A$:[139]A$[178]""[167][137]440
  51. 450 [139]A$[178]"INPUT"[167][137]100
  52. 455 [139]A$[178]"DIM"[167][137]130
  53. 460 [139]A$[178]"LET"[167][153]"LOAD    GOODBYE FOLKS!!!":[151]53280,14:[151]53272,21:[128]
  54. 470 [137]440
  55. 999 [129]T[178]0[164]500
  56.